home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / tools / getversion.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-24  |  1.4 KB  |  45 lines
  1. /*
  2.  * getversion.c
  3.  *
  4.  * Utility program used during installation. Returns the version suffix to
  5.  * add to the master directory name.  This can be compiled to get either the
  6.  * TclX or TkX version depending on if TK_GET_VERSION is defined.
  7.  *-----------------------------------------------------------------------------
  8.  * Copyright 1991-1993 Karl Lehenbauer and Mark Diekhans.
  9.  *
  10.  * Permission to use, copy, modify, and distribute this software and its
  11.  * documentation for any purpose and without fee is hereby granted, provided
  12.  * that the above copyright notice appear in all copies.  Karl Lehenbauer and
  13.  * Mark Diekhans make no representations about the suitability of this
  14.  * software for any purpose.  It is provided "as is" without express or
  15.  * implied warranty.
  16.  *-----------------------------------------------------------------------------
  17.  * $Id: getversion.c,v 3.2 1994/01/24 05:52:15 markd Exp $
  18.  *-----------------------------------------------------------------------------
  19.  */
  20.  
  21. #include "tclExtend.h"
  22. #include "tclXpatchl.h"
  23.  
  24. #ifdef TK_GET_VERSION
  25. #include "tk.h"
  26. #endif
  27.  
  28. int
  29. main (argc, argv)
  30.     int    argc;
  31.     char **argv;
  32. {
  33. #ifdef TK_GET_VERSION
  34.     printf ("%s%s", TK_VERSION, TCL_EXTD_VERSION_SUFFIX);
  35. #else
  36.     printf ("%s%s", TCL_VERSION, TCL_EXTD_VERSION_SUFFIX);
  37. #endif
  38. #ifdef TCLX_PATCHLEVEL
  39.     if (TCLX_PATCHLEVEL != 0) 
  40.         printf ("-p%d", TCLX_PATCHLEVEL);
  41. #endif    
  42.     printf ("\n");
  43.     exit (0);
  44. }
  45.